home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / a_menu35.zip / A-MLOGON.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-03-31  |  1KB  |  86 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1185 bytes  03/09/122  08:19:28am
  3. '! Code Segment Size  :1023 bytes
  4. '! Data Segment Size  :4513 bytes
  5. '! String Segment Size:162 bytes
  6. '! Compiled with WCC version 4.11
  7.  
  8.       Dim s4463(0 To 6) As String
  9.       Dim s4491 As String
  10.       Dim s4495 As String
  11.       Dim i4499 As Integer
  12.       Dim s4501 As String
  13.       Dim s4505 As String
  14.       Dim l4509 As Long
  15.  
  16.       Dim l65530_ As Long
  17.       Dim i65534_ As Integer
  18.  
  19.       s4501 = ParamStr(1)
  20.       s4491 = ProgPath + "A-MENU\A-MLOGON.CFG"
  21.       If Exists(s4491) Then
  22.         Reset 
  23.         Open s4491 For Input As 1
  24.   119   For i4499 = 1 To 6 Step 1
  25.           Input #1, s4463(i4499)
  26.           s4463(i4499) = Trim(s4463(i4499))
  27.           s4463(i4499) = UCase(s4463(i4499))
  28.         Next
  29.   341   Close 1
  30.       End If
  31.   346 If s4501 = "X" Then
  32.       Else
  33.   369   If FastLogonChar = "!" Then
  34.           GoSub 664
  35.         End If
  36.   391   If s4501 = "X" Then
  37.         Else
  38.   414     If s4501 = "O" Then
  39.           Else
  40.   437       If FastLogonChar = "*" Then
  41.               CheckMailAtLogon 
  42.             Else
  43.   462         If Left(s4463(1), 1) = "Y" Then
  44.                 HelloFiles 
  45.               End If
  46.   508         If Left(s4463(2), 1) = "Y" Then
  47.                 CheckMailAtLogon 
  48.               End If
  49.   554         If Left(s4463(3), 1) = "Y" Then
  50.                 CheckNewsletter 
  51.               End If
  52.   600         If Left(s4463(4), 1) = "Y" Then
  53.                 CheckBulletins 
  54.               End If
  55.             End If
  56.           End If
  57.   646     Chain ProgPath + "A-MENULD.WCX", ""
  58.   664     l4509 = User.UserId
  59.           s4505 = Right("00000000" + Str(l4509), 6)
  60.           s4505 = ProgPath + "A-MENU\FLAGS\AL" + s4505 + ".FLG"
  61.           If Exists(s4505) Then
  62.             Del s4505
  63.             s4501 = "X"
  64.           Else
  65.   764       Reset 
  66.             Open s4505 For Output As 1
  67.             Print #1, "*** Processing OMR ***"
  68.             Close 1
  69.             s4501 = "O"
  70.           End If
  71.   810     Return 
  72.         End If
  73.       End If
  74.   811 s4495 = ProgPath + "A-MENU\" + Left(s4463(6), 12)
  75.       If Exists(s4495) Then
  76.         DisplayTextFile(s4495)
  77.         Locate 22, 1
  78.         WaitEnter 
  79.       End If
  80.   888 Goodbye 1213417543
  81.       s4495 = ProgPath + "\BATCH\POSTCALL.BAT"
  82.       If Exists(s4495) And Left(s4463(5), 1) = "Y" Then
  83.         Shell s4495, ""
  84.       End If
  85.   974 End 
  86.